﻿Imports System.Data.OleDb
Imports DAO
Imports DTO

Public Class BenhNhanBUS
    Public Function LayDanhSach() As IList
        'Kiem tra Business Rule neu co
        Dim ds As IList
        Dim benhnhanDAO As New BenhNhanDAO()
        ds = benhnhanDAO.LayDanhSach()
        Return ds
    End Function
    Public Function LayBang() As DataTable
        'Kiem tra Business Rule neu co
        Dim dt As DataTable
        Dim benhnhanDAO As New BenhNhanDAO()
        dt = benhnhanDAO.LayBang()
        Return dt
    End Function
    Public Sub CapNhatBang(ByVal dt As DataTable)
        'Kiem tra Business Rule neu co
        Dim svDao As New ThuocDAO
        svDao.CapNhatBang(dt)
    End Sub
End Class
